display_x <- panimmune_data$sample_selection_choices[1]
display_y <- panimmune_data$cell_content_choices[1]
internal_x <- get_variable_internal_name(display_x)
internal_y <- get_variable_internal_name(display_y)
plot_df <- panimmune_data$df %>%
select_(.dots = c(internal_x, internal_y)) %>%
.[complete.cases(.),]
plot <- create_violinplot(
plot_df,
internal_x,
internal_y,
internal_x,
xlab = display_x,
ylab = display_y,
fill_colors = decide_plot_colors(panimmune_data, internal_x)
)
the condition has length > 1 and only the first element will be used
plot

ggplotly(plot)
LS0tCnRpdGxlOiAiVGVzdGluZyB2YXJpb3VzIHBsb3QgZnVuY3Rpb25zIgpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sKLS0tCgpgYGB7cn0Kc291cmNlKCJnbG9iYWwuUiIpCmBgYAoKYGBge3J9CmRpc3BsYXlfeCAgPC0gcGFuaW1tdW5lX2RhdGEkc2FtcGxlX3NlbGVjdGlvbl9jaG9pY2VzWzFdCmRpc3BsYXlfeSAgPC0gcGFuaW1tdW5lX2RhdGEkY2VsbF9jb250ZW50X2Nob2ljZXNbMV0KaW50ZXJuYWxfeCA8LSBnZXRfdmFyaWFibGVfaW50ZXJuYWxfbmFtZShkaXNwbGF5X3gpCmludGVybmFsX3kgPC0gZ2V0X3ZhcmlhYmxlX2ludGVybmFsX25hbWUoZGlzcGxheV95KQoKcGxvdF9kZiA8LSBwYW5pbW11bmVfZGF0YSRkZiAlPiUgCiAgICBzZWxlY3RfKC5kb3RzID0gYyhpbnRlcm5hbF94LCBpbnRlcm5hbF95KSkgJT4lIAogICAgLltjb21wbGV0ZS5jYXNlcyguKSxdCgpwbG90IDwtIGNyZWF0ZV92aW9saW5wbG90KAogICAgcGxvdF9kZiwKICAgIGludGVybmFsX3gsCiAgICBpbnRlcm5hbF95LAogICAgaW50ZXJuYWxfeCwKICAgIHhsYWIgPSBkaXNwbGF5X3gsCiAgICB5bGFiID0gZGlzcGxheV95LAogICAgZmlsbF9jb2xvcnMgPSBkZWNpZGVfcGxvdF9jb2xvcnMocGFuaW1tdW5lX2RhdGEsIGludGVybmFsX3gpCikKcGxvdApgYGAKCgpgYGB7cn0KZ2dwbG90bHkocGxvdCkKYGBgCgo=